home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 5 (Internal Edition) / Apple R&P Lib Internal v5.0.iso / 6-Developer Demos / Developer Demos-Ed. / Macintosh School® CD-ROM Demo / Macintosh SchoolÆ CD-ROM Demo / card_21656.txt < prev    next >
Text File  |  1990-08-14  |  12KB  |  501 lines
  1. -- card: 21656 from stack: in
  2. -- bmap block id: 21905
  3. -- flags: 4000
  4. -- background id: 20347
  5. -- name: SD Misc
  6.  
  7.  
  8. -- part 4 (field)
  9. -- low flags: 01
  10. -- high flags: 0000
  11. -- rect: left=394 top=91 right=106 bottom=499
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 3
  16. -- text size: 10
  17. -- style flags: 0
  18. -- line height: 13
  19. -- part name: Normal program
  20.  
  21.  
  22. -- part 5 (field)
  23. -- low flags: 01
  24. -- high flags: 0000
  25. -- rect: left=394 top=106 right=121 bottom=499
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 0
  29. -- font id: 3
  30. -- text size: 10
  31. -- style flags: 0
  32. -- line height: 13
  33. -- part name: Special program
  34.  
  35.  
  36. -- part 6 (field)
  37. -- low flags: 01
  38. -- high flags: 0000
  39. -- rect: left=394 top=121 right=136 bottom=499
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 0 / 0
  42. -- text alignment: 0
  43. -- font id: 3
  44. -- text size: 10
  45. -- style flags: 0
  46. -- line height: 13
  47. -- part name: Counselor
  48.  
  49.  
  50. -- part 7 (field)
  51. -- low flags: 01
  52. -- high flags: 0000
  53. -- rect: left=394 top=136 right=151 bottom=499
  54. -- title width / last selected line: 0
  55. -- icon id / first selected line: 0 / 0
  56. -- text alignment: 0
  57. -- font id: 3
  58. -- text size: 10
  59. -- style flags: 0
  60. -- line height: 13
  61. -- part name: Ethnic Category
  62.  
  63.  
  64. -- part 8 (field)
  65. -- low flags: 01
  66. -- high flags: 0000
  67. -- rect: left=394 top=151 right=166 bottom=499
  68. -- title width / last selected line: 0
  69. -- icon id / first selected line: 0 / 0
  70. -- text alignment: 0
  71. -- font id: 3
  72. -- text size: 10
  73. -- style flags: 0
  74. -- line height: 13
  75. -- part name: Home Language
  76.  
  77.  
  78. -- part 9 (field)
  79. -- low flags: 01
  80. -- high flags: 0000
  81. -- rect: left=394 top=166 right=181 bottom=499
  82. -- title width / last selected line: 0
  83. -- icon id / first selected line: 0 / 0
  84. -- text alignment: 0
  85. -- font id: 3
  86. -- text size: 10
  87. -- style flags: 0
  88. -- line height: 13
  89. -- part name: Lunch Status
  90.  
  91.  
  92. -- part 11 (button)
  93. -- low flags: 00
  94. -- high flags: 2000
  95. -- rect: left=275 top=91 right=105 bottom=385
  96. -- title width / last selected line: 0
  97. -- icon id / first selected line: 0 / 0
  98. -- text alignment: 0
  99. -- font id: 3
  100. -- text size: 10
  101. -- style flags: 0
  102. -- line height: 13
  103. -- part name: Normal program
  104. ----- HyperTalk script -----
  105. on mouseDown
  106.   global checkLoc3
  107.   get the rect of me
  108.   put item 1 of it + 111 into horz
  109.   put item 2 of it into vert
  110.   put "NA                    ,Academic," into menuList
  111.   put "Commercial,Industrial" after menuList
  112.   put PopUpMenu(menuList,vert,horz,checkLoc3) into temp
  113.   if temp > 0 then
  114.     put item temp of menuList into card field "Normal program"
  115.     put temp into checkLoc3
  116.   end if
  117. end mouseDown
  118.  
  119.  
  120.  
  121. -- part 12 (button)
  122. -- low flags: 00
  123. -- high flags: 2000
  124. -- rect: left=275 top=106 right=120 bottom=385
  125. -- title width / last selected line: 0
  126. -- icon id / first selected line: 0 / 0
  127. -- text alignment: 0
  128. -- font id: 3
  129. -- text size: 10
  130. -- style flags: 0
  131. -- line height: 13
  132. -- part name: Special program
  133. ----- HyperTalk script -----
  134. on mouseDown
  135.   global checkLoc4
  136.   get the rect of me
  137.   put item 1 of it + 111 into horz
  138.   put item 2 of it into vert
  139.   put "NA                    ,ESL,Learning Dis‚Ķ,Voc Ed." into menuList
  140.   put PopUpMenu(menuList,vert,horz,checkLoc4) into temp
  141.   if temp > 0 then
  142.     put item temp of menuList into card field "Special program"
  143.     put temp into checkLoc4
  144.   end if
  145. end mouseDown
  146.  
  147.  
  148.  
  149. -- part 13 (button)
  150. -- low flags: 00
  151. -- high flags: 2000
  152. -- rect: left=275 top=121 right=135 bottom=385
  153. -- title width / last selected line: 0
  154. -- icon id / first selected line: 0 / 0
  155. -- text alignment: 0
  156. -- font id: 3
  157. -- text size: 10
  158. -- style flags: 0
  159. -- line height: 13
  160. -- part name: Counselor
  161. ----- HyperTalk script -----
  162. on mouseDown
  163.   global checkLoc5
  164.   get the rect of me
  165.   put item 1 of it + 111 into horz
  166.   put item 2 of it into vert
  167.   put "NA,Bob Dean,Den Domoney," into menuList
  168.   put "Heinrich Doctor,James Arness,John Harrison," after menuList
  169.   put "Peter Mann,Tich A Cavin,Yan Duchesne" after menuList
  170.   put PopUpMenu(menuList,vert,horz,checkLoc5) into temp
  171.   if temp > 0 then
  172.     put item temp of menuList into card field "Counselor"
  173.     put temp into checkLoc5
  174.   end if
  175. end mouseDown
  176.  
  177.  
  178.  
  179. -- part 14 (button)
  180. -- low flags: 00
  181. -- high flags: 2000
  182. -- rect: left=275 top=136 right=150 bottom=385
  183. -- title width / last selected line: 0
  184. -- icon id / first selected line: 0 / 0
  185. -- text alignment: 0
  186. -- font id: 3
  187. -- text size: 10
  188. -- style flags: 0
  189. -- line height: 13
  190. -- part name: Ethnic Category
  191. ----- HyperTalk script -----
  192. on mouseDown
  193.   global checkLoc6
  194.   get the rect of me
  195.   put item 1 of it + 111 into horz
  196.   put item 2 of it into vert
  197.   put "NA                    ,American,Canadian," into menuList
  198.   put "Chinese,French,Greek,Hatian,Japanese,Korean," after menuList
  199.   put "Mexican,Native Indian,Spanish,Ukranian" after menuList
  200.   put PopUpMenu(menuList,vert,horz,checkLoc6) into temp
  201.   if temp > 0 then
  202.     put item temp of menuList into card field "Ethnic Category"
  203.     put temp into checkLoc6
  204.   end if
  205. end mouseDown
  206.  
  207.  
  208.  
  209. -- part 15 (button)
  210. -- low flags: 00
  211. -- high flags: 2000
  212. -- rect: left=275 top=151 right=165 bottom=385
  213. -- title width / last selected line: 0
  214. -- icon id / first selected line: 0 / 0
  215. -- text alignment: 0
  216. -- font id: 3
  217. -- text size: 10
  218. -- style flags: 0
  219. -- line height: 13
  220. -- part name: Home Language
  221. ----- HyperTalk script -----
  222. on mouseDown
  223.   global checkLoc7
  224.   get the rect of me
  225.   put item 1 of it + 111 into horz
  226.   put item 2 of it into vert
  227.   put "NA                    ,Chinese,English,French," into menuList
  228.   put "German,Hatian,Japanese,Russian,Spanish,>>6-622" after menuList
  229.   put PopUpMenu(menuList,vert,horz,checkLoc7) into temp
  230.   if temp > 0 then
  231.     put item temp of menuList into card field "Home Language"
  232.     put temp into checkLoc7
  233.   end if
  234. end mouseDown
  235.  
  236.  
  237.  
  238. -- part 16 (button)
  239. -- low flags: 00
  240. -- high flags: 2000
  241. -- rect: left=275 top=166 right=180 bottom=385
  242. -- title width / last selected line: 0
  243. -- icon id / first selected line: 0 / 0
  244. -- text alignment: 0
  245. -- font id: 3
  246. -- text size: 10
  247. -- style flags: 0
  248. -- line height: 13
  249. -- part name: Lunch Status
  250. ----- HyperTalk script -----
  251. on mouseDown
  252.   global checkLoc8
  253.   get the rect of me
  254.   put item 1 of it + 111 into horz
  255.   put item 2 of it into vert
  256.   put "NA                    ,Free,Full Price," into menuList
  257.   put "Half Price,Reduced Price,Salt Free,Special Diet" after menuList
  258.   put PopUpMenu(menuList,vert,horz,checkLoc8) into temp
  259.   if temp > 0 then
  260.     put item temp of menuList into card field "Lunch status"
  261.     put temp into checkLoc8
  262.   end if
  263. end mouseDown
  264.  
  265.  
  266.  
  267. -- part 17 (button)
  268. -- low flags: 00
  269. -- high flags: 0000
  270. -- rect: left=19 top=93 right=107 bottom=33
  271. -- title width / last selected line: 0
  272. -- icon id / first selected line: 5064 / 5064
  273. -- text alignment: 1
  274. -- font id: 3
  275. -- text size: 10
  276. -- style flags: 0
  277. -- line height: 13
  278. -- part name: Group One
  279. ----- HyperTalk script -----
  280. on mouseUp
  281.   if icon of me is "5065" then
  282.     set icon of me to "Md Unchecked Box"
  283.   else set icon of me to "Md Checked Box"
  284. end mouseUp
  285.  
  286.  
  287. -- part 18 (button)
  288. -- low flags: 00
  289. -- high flags: 0000
  290. -- rect: left=19 top=106 right=120 bottom=33
  291. -- title width / last selected line: 0
  292. -- icon id / first selected line: 5064 / 5064
  293. -- text alignment: 1
  294. -- font id: 3
  295. -- text size: 10
  296. -- style flags: 0
  297. -- line height: 13
  298. -- part name: Group Two
  299. ----- HyperTalk script -----
  300. on mouseUp
  301.   if icon of me is "5065" then
  302.     set icon of me to "Md Unchecked Box"
  303.   else set icon of me to "Md Checked Box"
  304. end mouseUp
  305.  
  306.  
  307. -- part 19 (button)
  308. -- low flags: 00
  309. -- high flags: 0000
  310. -- rect: left=19 top=119 right=133 bottom=33
  311. -- title width / last selected line: 0
  312. -- icon id / first selected line: 5064 / 5064
  313. -- text alignment: 1
  314. -- font id: 3
  315. -- text size: 10
  316. -- style flags: 0
  317. -- line height: 13
  318. -- part name: Group Three
  319. ----- HyperTalk script -----
  320. on mouseUp
  321.   if icon of me is "5065" then
  322.     set icon of me to "Md Unchecked Box"
  323.   else set icon of me to "Md Checked Box"
  324. end mouseUp
  325.  
  326.  
  327. -- part 20 (button)
  328. -- low flags: 00
  329. -- high flags: 0000
  330. -- rect: left=19 top=132 right=146 bottom=33
  331. -- title width / last selected line: 0
  332. -- icon id / first selected line: 5064 / 5064
  333. -- text alignment: 1
  334. -- font id: 3
  335. -- text size: 10
  336. -- style flags: 0
  337. -- line height: 13
  338. -- part name: Group Four
  339. ----- HyperTalk script -----
  340. on mouseUp
  341.   if icon of me is "5065" then
  342.     set icon of me to "Md Unchecked Box"
  343.   else set icon of me to "Md Checked Box"
  344. end mouseUp
  345.  
  346.  
  347. -- part 21 (button)
  348. -- low flags: 00
  349. -- high flags: 0000
  350. -- rect: left=19 top=145 right=159 bottom=33
  351. -- title width / last selected line: 0
  352. -- icon id / first selected line: 5064 / 5064
  353. -- text alignment: 1
  354. -- font id: 3
  355. -- text size: 10
  356. -- style flags: 0
  357. -- line height: 13
  358. -- part name: Group Five
  359. ----- HyperTalk script -----
  360. on mouseUp
  361.   if icon of me is "5065" then
  362.     set icon of me to "Md Unchecked Box"
  363.   else set icon of me to "Md Checked Box"
  364. end mouseUp
  365.  
  366.  
  367. -- part 22 (button)
  368. -- low flags: 00
  369. -- high flags: 0000
  370. -- rect: left=19 top=158 right=172 bottom=33
  371. -- title width / last selected line: 0
  372. -- icon id / first selected line: 5064 / 5064
  373. -- text alignment: 1
  374. -- font id: 3
  375. -- text size: 10
  376. -- style flags: 0
  377. -- line height: 13
  378. -- part name: Group Six
  379. ----- HyperTalk script -----
  380. on mouseUp
  381.   if icon of me is "5065" then
  382.     set icon of me to "Md Unchecked Box"
  383.   else set icon of me to "Md Checked Box"
  384. end mouseUp
  385.  
  386.  
  387. -- part 23 (button)
  388. -- low flags: 00
  389. -- high flags: 0000
  390. -- rect: left=19 top=171 right=185 bottom=33
  391. -- title width / last selected line: 0
  392. -- icon id / first selected line: 5064 / 5064
  393. -- text alignment: 1
  394. -- font id: 3
  395. -- text size: 10
  396. -- style flags: 0
  397. -- line height: 13
  398. -- part name: Group Seven
  399. ----- HyperTalk script -----
  400. on mouseUp
  401.   if icon of me is "5065" then
  402.     set icon of me to "Md Unchecked Box"
  403.   else set icon of me to "Md Checked Box"
  404. end mouseUp
  405.  
  406.  
  407. -- part 24 (button)
  408. -- low flags: 00
  409. -- high flags: 0000
  410. -- rect: left=19 top=184 right=198 bottom=33
  411. -- title width / last selected line: 0
  412. -- icon id / first selected line: 5064 / 5064
  413. -- text alignment: 1
  414. -- font id: 3
  415. -- text size: 10
  416. -- style flags: 0
  417. -- line height: 13
  418. -- part name: Group Eight
  419. ----- HyperTalk script -----
  420. on mouseUp
  421.   if icon of me is "5065" then
  422.     set icon of me to "Md Unchecked Box"
  423.   else set icon of me to "Md Checked Box"
  424. end mouseUp
  425.  
  426.  
  427. -- part 25 (button)
  428. -- low flags: 00
  429. -- high flags: 0000
  430. -- rect: left=19 top=197 right=211 bottom=33
  431. -- title width / last selected line: 0
  432. -- icon id / first selected line: 5064 / 5064
  433. -- text alignment: 1
  434. -- font id: 3
  435. -- text size: 10
  436. -- style flags: 0
  437. -- line height: 13
  438. -- part name: Group Nine
  439. ----- HyperTalk script -----
  440. on mouseUp
  441.   if icon of me is "5065" then
  442.     set icon of me to "Md Unchecked Box"
  443.   else set icon of me to "Md Checked Box"
  444. end mouseUp
  445.  
  446.  
  447. -- part 26 (button)
  448. -- low flags: 00
  449. -- high flags: 0000
  450. -- rect: left=19 top=210 right=224 bottom=33
  451. -- title width / last selected line: 0
  452. -- icon id / first selected line: 5064 / 5064
  453. -- text alignment: 1
  454. -- font id: 3
  455. -- text size: 10
  456. -- style flags: 0
  457. -- line height: 13
  458. -- part name: Group Ten
  459. ----- HyperTalk script -----
  460. on mouseUp
  461.   if icon of me is "5065" then
  462.     set icon of me to "Md Unchecked Box"
  463.   else set icon of me to "Md Checked Box"
  464. end mouseUp
  465.  
  466.  
  467. -- part contents for card part 6
  468. ----- text -----
  469. NA
  470.  
  471. -- part contents for card part 7
  472. ----- text -----
  473. NA
  474.  
  475. -- part contents for card part 8
  476. ----- text -----
  477. NA
  478.  
  479. -- part contents for card part 9
  480. ----- text -----
  481. NA
  482.  
  483. -- part contents for card part 4
  484. ----- text -----
  485. NA
  486.  
  487. -- part contents for card part 5
  488. ----- text -----
  489. NA
  490.  
  491. -- part contents for background part 13
  492. ----- text -----
  493. Richter, Robert Charlie
  494.  
  495. -- part contents for background part 14
  496. ----- text -----
  497. 12
  498.  
  499. -- part contents for background part 15
  500. ----- text -----
  501. 102